1000 REM AUFLOESUNG EINER GEGEN ALLE 3/87
1010 :
1020 PRINT"[147]"
1030 DIM W(200)
1040 :
1050 PRINT : INPUT E$
1060 :
1070 REM CHIFFRIERUNG
1080 :
1090 LE=LEN(E$)
1100 OF=INT(RND(1)*50)+10
1120 W(0)=LE*2+1
1130 W(1)=OF*2
1140 :
1150 Z=1
1160 FOR I=LE TO 1 STEP-1
1170 Z=Z+1
1180 W(Z)=ASC(MID$(E$,I,1))+OF
1190 Z=Z+1
1200 W(Z)=INT(RND(1)*250)+1
1210 NEXTI
1220 :
1230 REM AUSGABE DER CODIERUNG
1240 :
1250 PRINT
1260 FOR I=0 TO W(0)
1270 PRINTW(I),
1280 NEXT I
1290 :
1300 REM DECHIFFRIERUNG UND AUSGABE
1310 :
1320 AN=W(0)-1
1330 OF=W(1)/2
1340 :
1350 PRINT:PRINT:PRINT"> ";
1360 FOR I=AN TO 2 STEP-2
1370 CH=W(I)-OF
1380 PRINT CHR$(CH);
1390 NEXTI
1400 PRINT
1410 :
1420 GOTO 1050